$i=1;
$j=2;
while ($j < 4000000) {
    if ($j%2==0) {
        $sum+=$j;
    }
    $k=$j+$i;
    $i=$j;
    $j=$k;
}
print "$sum\n";